home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / neukpnam.skr < prev    next >
Text File  |  1996-02-11  |  522b  |  30 lines
  1. REFSKRIPT
  2. ; routine um im aktuellen dreiecks-objekt einen
  3. ; neuen körpernamen zu finden
  4.  
  5. ;find_tmp_kp_name:procedure
  6. GET_PARAM_NR 1
  7. GET_RESULT name
  8. ADD_STR name
  9. GET_RESULT neu_name  
  10.    SET_VAR found 0
  11.    SET_VAR i 0
  12.    KP_EXIST neu_name
  13.    GET_RESULT res
  14.    IF_STR_EQUAL_GOTO res NEIN w1
  15.    
  16. >do_while:    
  17.     ADD_STR name _ i
  18.     GET_RESULT neu_name
  19.     KP_EXIST neu_name
  20.     GET_RESULT res
  21.     IF_STR_EQUAL_GOTO res NEIN w1
  22.     ADD i 1
  23.     GET_RESULT i
  24.     GOTO do_while
  25.  
  26. >w1:
  27. RETURN neu_name
  28.  
  29.  
  30.